home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / gfx / 3d / IIB10.lha / IIB / Threads / Additional / IARexx.lha / FractureAndSmoothIt.irx < prev    next >
Encoding:
Text File  |  1997-03-19  |  1.0 KB  |  52 lines
  1. /*
  2. **  $VER: FractureAndSmoothIt  0.02 (15 Jun 1996)  **
  3. **
  4. **      (c) 1996 Ernesto Poveda Cortes
  5. **
  6. **  PROGRAMNAME:
  7. **      FractureAndSmoothIt.irx
  8. **
  9. **  FUNCTION:
  10. **      Get the selected object, fractures all its faces and smooth
  11. **      it. Useful to get some more definition on an object.
  12. **      Works from Detail Editor.
  13. **
  14. **  $HISTORY:
  15. **
  16. **  15 Jun 1996 : 0.02 : it works
  17. **  10 Jun 1996 : 0.01 : initial release
  18. */
  19.  
  20.  
  21. OPTIONS RESULTS                             /* enable return codes     */
  22.  
  23. address 'Imagine.1'
  24.  
  25. OPTIONS FAILAT 6                            /* ignore warnings         */
  26. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  27.  
  28. displayrexxptr on
  29.  
  30. /* ------------------------------------------------------------------- */
  31.  
  32.  
  33. ImagineToFront
  34. Facemode
  35. Pick all
  36. Fracture 1
  37. SmoothingToolLock 5
  38. ObjectMode
  39.  
  40. /* ------------------------------------------------------------------- */
  41.  
  42. ActivateImagine
  43. displayrexxptr off
  44. EXIT
  45.  
  46. SYNTAX:
  47.  
  48. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  49. ActivateImagine
  50. displayrexxptr off
  51. EXIT
  52.